home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / mcsecure.zip / MCSECURE.FRM < prev    next >
Text File  |  1996-05-16  |  2KB  |  90 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm frmSecurity 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "MC SECURITY"
  6.    ClientHeight    =   6210
  7.    ClientLeft      =   1230
  8.    ClientTop       =   1680
  9.    ClientWidth     =   8775
  10.    Height          =   6840
  11.    Icon            =   "MCSECURE.frx":0000
  12.    Left            =   1200
  13.    LinkTopic       =   "MDIForm1"
  14.    Top             =   1080
  15.    Width           =   8835
  16.    Begin VB.Menu mnu_Serialization 
  17.       Caption         =   "&Serialization"
  18.    End
  19.    Begin VB.Menu mnu_HashCoding 
  20.       Caption         =   "&Hash coding"
  21.    End
  22.    Begin VB.Menu mnu_RegistrationKey 
  23.       Caption         =   "&Registration key"
  24.    End
  25.    Begin VB.Menu mnu_Encryption 
  26.       Caption         =   "&Encryption"
  27.    End
  28.    Begin VB.Menu mnu_Crc 
  29.       Caption         =   "&Crc"
  30.    End
  31.    Begin VB.Menu mnu_Exit 
  32.       Caption         =   "&Exit"
  33.    End
  34.    Begin VB.Menu mnu_About 
  35.       Caption         =   "&About"
  36.       WindowList      =   -1  'True
  37.       Begin VB.Menu mnu_Dummy1 
  38.          Caption         =   "MC SECURITY"
  39.       End
  40.    End
  41. End
  42. Attribute VB_Name = "frmSecurity"
  43. Attribute VB_Creatable = False
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46.  
  47.  
  48.  
  49. Private Sub MDIForm_Load()
  50.    mnu_About.Caption = Chr$(8) & mnu_About.Caption
  51. End Sub
  52.  
  53.  
  54. Private Sub mnu_Crc_Click()
  55.    Load frmCrc
  56.    frmCrc.Show
  57. End Sub
  58.  
  59. Private Sub mnu_Dummy1_Click()
  60.    Load frmAbout
  61.    frmAbout.Show
  62. End Sub
  63.  
  64. Private Sub mnu_Encryption_Click()
  65.    Load frmEncryption
  66.    frmEncryption.Show
  67. End Sub
  68.  
  69. Private Sub mnu_Exit_Click()
  70.    Unload Me
  71. End Sub
  72.  
  73. Private Sub mnu_HashCoding_Click()
  74.    Load frmHashCoding
  75.    frmHashCoding.Show
  76. End Sub
  77.  
  78.  
  79. Private Sub mnu_RegistrationKey_Click()
  80.    Load frmRegistrationKey
  81.    frmRegistrationKey.Show
  82. End Sub
  83.  
  84. Private Sub mnu_Serialization_Click()
  85.    Load frmSerialization
  86.    frmSerialization.Show
  87. End Sub
  88.  
  89.  
  90.